home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Subforms i22057722001.psc / files for demo / subformCTL / CLS / isubclass.cls < prev    next >
Encoding:
Visual Basic class definition  |  2001-05-10  |  2.7 KB  |  61 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "ISubclass"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Option Explicit
  15. ' ===========================================================================
  16. ' Copyright « 1998 Steve McMahon (steve@dogma.demon.co.uk)
  17. ' Visit vbAccelerator - free, advanced source code for VB programmers.
  18. '     http://vbaccelerator.com
  19. ' ---------------------------------------------------------------------------
  20. ' FREE SOURCE CODE! - ENJOY.
  21. ' - Please report bugs to the author for incorporation into future releases
  22. ' - Don't sell this code.
  23. ' ===========================================================================
  24. '
  25. 'Note:
  26. 'You are free to use and modify any of the code on the site,
  27. 'but not to distribute modified versions of my downloads,
  28. 'ActiveX DLLs or OCXs with the same filename and/or ProgIds.
  29. 'If you have made changes which you think are beneficial,
  30. 'or have bug reports, then you can email me
  31. '(steve@vbaccelerator.com) and I will do my utmost to get the a new version
  32. 'on the site.
  33. 'You can freely distribute the zips available from this site to other ones,
  34. 'but you must distribute them in their original state and particularly keep
  35. 'the information and disclaimer text file with the zip (if it has one!).
  36. 'Notification would be greatly appreciated!
  37. 'You can freely distribute any compiled code on the site,
  38. 'or any products you build using the code.
  39. 'If you wish to distribute the source code files by any other means
  40. '(i.e. if you want to include it on a CD or any other software media)
  41. 'then the EXPRESS PERMISSION of the author is REQUIRED
  42. ' ===========================================================================
  43.  
  44. Public Enum EMsgResponse
  45.     emrConsume      ' Process instead of original WindowProc
  46.     emrPostProcess  ' Process after original WindowProc
  47.     emrPreprocess   ' Process before original WindowProc
  48. End Enum
  49.  
  50. Public MsgResponse As EMsgResponse
  51. Attribute MsgResponse.VB_VarDescription = "Get/set how you will respond to a message.  Raised whenever a message is encountered.  Call the CurrentMessage property to determine what message you are currently responding to."
  52.  
  53. Function WindowProc(ByVal hwnd As Long, _
  54.                     ByVal iMsg As Long, _
  55.                     ByVal wParam As Long, _
  56.                     ByVal lParam As Long) As Long
  57. Attribute WindowProc.VB_Description = "Raised whenever a message you have subclassed is sent."
  58. End Function
  59. '
  60.  
  61.